10 INPUT "Количество элементов ="; N%: IF N% < 1 THEN 10
20 DIM AR(N%)
30 FOR I=1 TO N%
40 PRINT "Элемент №"; I;
50 INPUT AR(I)
60 NEXT I
70 FLAG = 0
80 FOR I=1 TO N-1
90 FOR J=I+1 TO N
100 IG AR(I) = AR(J) THEN FLAG = 1: GOTO 120
110 NEXT J, I
120 IF FLAG = 0 THEN PRINT "Все"; ELSE PRINT "Не все";
130 PRINT " разные"
140 END